Star Trek Starfleet Academy Mini Omnipedia/MINI_OMNI.ISO/pc/omni_v2.dxr/00376_Text Acquisistion.ls

Text File | 1996-04-15 | 1.3 KB | 41 lines

global gcurrentmedialist, gModeState, gFTsearchscope, gCurrNtryModeCode, gCurrEntryAttrib, gEntriesPath, gPDL, gPreStyledFlag

on hParseAttrib pWhatEntry
  global gVoiceSearchText
  set gVoiceSearchText to pWhatEntry
  if gModeState = #FoundSet then
    if gFTsearchscope = #ALL then
      set gCurrNtryModeCode to hGetMode(pWhatEntry)
    else
      set gCurrNtryModeCode to gFTsearchscope
    end if
    set LthisItem to hConvertAlphaToItem(hFilterSearchChars(pWhatEntry))
    set gCurrEntryAttrib to mFindThisNtrysAttribs(oIndexMediator, gCurrNtryModeCode, LthisItem, pWhatEntry)
  end if
  if voidp(gCurrEntryAttrib) then
    return 0
  end if
  set gcurrentmedialist to []
  repeat with i = 2 to 7
    add(gcurrentmedialist, getAt(gCurrEntryAttrib, i))
  end repeat
  if max(gcurrentmedialist) <= 0 then
    set gcurrentmedialist to []
  end if
  set LnomofChunks to getAt(gCurrEntryAttrib, 8)
  set Lcastid to getAt(gCurrEntryAttrib, 9)
  set Lcastitem to getAt(gCurrEntryAttrib, 10)
  return hGetText(Lcastid, Lcastitem)
end

on hGetText cstnum, cstitm
  set tidl to the itemDelimiter
  set the itemDelimiter to "~"
  set temp to item cstitm of field cstnum
  if temp = EMPTY then
    put "!>hGetText got nothing."
  end if
  set the itemDelimiter to tidl
  return temp
end